home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Temperature / TemperatureApp.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  1.5 KB  |  110 lines  |  [TEXT/CWIE]
  1. { TemperatureApp.p -- application-level functions }
  2. { Created 10/30/98 12:58 PM by AppMaker }
  3.  
  4. Unit TemperatureApp;
  5. Interface
  6.  
  7. Uses
  8.     Types,
  9.     Quickdraw,
  10.     Controls,
  11.     Events,
  12.     Files,
  13.     Lists,
  14.     Menus,
  15.     TextEdit,
  16.     AMDoc,
  17.     AMApp;
  18.  
  19. type
  20.     TemperatureApp        = object (AMApp)
  21.  
  22.     {data members}
  23.  
  24.     {methods - public}
  25.         Procedure Initialize; Override;
  26.         Procedure OpenApp; Override;
  27.  
  28.         Function  DoCommand        (inCommand:    longint): Boolean; Override;
  29.  
  30.     {methods - internal}
  31.         Function  MakeDoc: AMDoc; Override;
  32.  
  33.     end;
  34.  
  35. {----------}
  36. Function NewTemperatureApp: TemperatureApp;
  37.  
  38. {----------}
  39. Implementation
  40.  
  41. Uses
  42.     ResourceDefs,
  43.  
  44.     TemperatureEngine,
  45.     TemperatureDoc,
  46.     AMWindow;
  47.  
  48. {----------}
  49. Function NewTemperatureApp: TemperatureApp;
  50. var
  51.     app:        TemperatureApp;
  52. begin
  53.     New (app);
  54.     if app <> nil then begin
  55.         app.Initialize;
  56.     end;
  57.     NewTemperatureApp := app;
  58. end;
  59.  
  60. {----------}
  61. Procedure TemperatureApp.Initialize;
  62. Begin
  63.     inherited Initialize;
  64.  
  65.     mNumOpenTypes := 1;
  66.     mOpenTypeList [0] := kFileType;
  67. End;
  68.  
  69. {----------}
  70. Function TemperatureApp.MakeDoc: AMDoc;
  71. var
  72.     aDoc:        TemperatureDoc;
  73. Begin
  74.     aDoc := NewTemperatureDoc;
  75.  
  76.     if aDoc <> nil then begin
  77.         {? add to list of docs}
  78.     end;
  79.  
  80.     MakeDoc := aDoc;
  81. End;
  82.  
  83. {----------}
  84. Procedure TemperatureApp.OpenApp;
  85. Begin
  86.     DoNew;
  87. End;
  88.  
  89. {----------}
  90. Function TemperatureApp.DoCommand (
  91.     inCommand:        longint): Boolean;
  92. begin
  93.     DoCommand := true;
  94.     case inCommand of
  95.         cmdNew:
  96.                 DoNew;
  97.         cmdOpen:
  98.                 DoOpen;
  99.         cmdClose:
  100.                 DoClose;
  101.         cmdQuit:
  102.                 DoQuit;
  103.  
  104.         otherwise
  105.                 DoCommand := false;
  106.     end; {case}
  107. end;
  108.  
  109. end.
  110.